home *** CD-ROM | disk | FTP | other *** search
/ UpTime Volume 2 #9 / utv2n9s2.d64 / bunny hop (.txt) < prev    next >
Commodore BASIC  |  2022-08-28  |  1KB  |  31 lines
  1. 100 rem    bunny boot--jc hilty--version 2.0-march 1988
  2. 105 sys58451:sys65418:poke55,255:poke56,159:clr:sys65412:sys65409
  3. 109 ifpeek(1023)=251thensys52480
  4. 110 poke53281,0:poke53280,6:print"[147]";chr$(142);chr$(8);
  5. 111 print"heading for the carrot patch...."
  6. 120 poke147,0:sys57812"display.ml",8,1:sys62631
  7. 130 poke147,0:sys57812"bunnytitle",8,1:sys62631:sys49154
  8. 140 s=54272:forx=0to24:pokes+x,0:next:pokes+3,8:pokes+5,41:pokes+6,89
  9. 150 pokes+14,117:pokes+18,16:pokes+24,143:dr=4
  10. 160 readfr:iffr=0thenrestore:goto160
  11. 170 pokes+4,65:fort=1todr*1.5:fq=fr+peek(s+27)/2
  12. 180 hf=int(fq/256):lf=fqand255:pokes,lf:pokes+1,hf:next:pokes+4,64
  13. 190 ifpeek(197)=4then210
  14. 200 goto160
  15. 210 poke53265,peek(53265)and223:poke53272,(peek(53272)and240)or4
  16. 220 poke53270,peek(53270)and239:poke53281,0:poke646,0
  17. 230 printchr$(147):print:print
  18. 240 print:print:print:print:print
  19. 250 print"[129]yummy..yummy..yummy..."
  20. 260 print"i got carrots in my tummy!![144]":printchr$(19)
  21. 270 load"bunnymain",8
  22. 280 rem    music data
  23. 290 data 3215,3215,4050,4050,4817,4817,5407,5407,5728,5728,5407,5407,4817,4817
  24. 300 data 4050,4050,3215,3215,4050,4050,4817,4817,5407,5407,5728,5728,5407,5407
  25. 310 data 4817,4817,4050,4050,4291,4291,5407,5407,6430,6430,7217,7217,7801,7801
  26. 320 data 7217,7217,6430,6430,5407,5407,3215,3215,4050,4050,4817,4817,5407,5407
  27. 330 data 5728,5728,5407,5407,4817,4817,4050,4050
  28. 340 data 4817,4817,6069,6069,7217,7217,6069,6069,4291,4291,5407,5407,6430,6430
  29. 350 data 5407,5407,3215,3215,4050,4050,4817,4817,5407,5407,6430,6430,6430,6430
  30. 360 data 12860,12860,12860,12860,0
  31.